
involved due to the faa that more information is being 
handl^ and displayed. The basic display system works on 
the pimciple that three bits (one for each color) controls each 
pixel instead of just one as in a black and white system. If 
two guns are on, the resulting color is a combination of the 
two. If all guns are on, white fa the result. With this con¬ 
figuration a total of eight colors, including black and white 
are available. Since the three bits needed to control a pixel do 
not fit into an eight-bit byte evenly, the unused bits could be 
used to obtain more colors or some other function, lii addi¬ 
tion, color systems usually require a separate sync input. 


The versatility of the internal architecture of the MCdgOOO 
‘ (Figure 3) enhances toe effectiveness of toe color graphics 
system. Besides containing a 32-bit program counter yielding 
16 megabytes of direct addressing range, the MC68000 also 
contains d^t 3tbit data registeis (DO-DT) and seven 32-bit 
address roisters (A0-A6). The eight data registers are used 
for byte (8-bit), word (16-bit), and long word (32-bit) data 
operations. The seven address registeis and the stack pointer 
may be used for word and long word address operations. In 
addition, all address and data registers may be used as index 
registers. 


Probably the slowest link in most computerized control 
systems is toe display of information for human interpreta¬ 
tion. The commonly used black and white monitor can 
display an adequate amount of information in most cases. 

In appUcations where a large amount of information must 
be displayed in toe same screen area, a color graphics system 
can easily provide this information by using a wide range of 
contrasting colors. Until recently the high cost of 
sophisticated components and color monitors required to 
generate and display color information has probably been 
the main prohibitive factor in development of these systems. 

Recently toe cost of components and color monitors has 
modera^ to the point that using a color graphics system of¬ 
fers a viable solution to information display, ranging from 
toe video games market to complex control systems. 

A state-of-the-art color graphics system using toe 
MC68000 16-bit microprocessor (MPU) with an economical 
MC6845 CRT controller (CRTC) fa described in this applica¬ 
tion note. Hardware improvement is evident in data move¬ 
ment occurring in 16-bit words and multiply and divide com¬ 
mands while software compatibilities are greatly enhanced 


through the .use of a processor that executes instructions 
which can operate on 8-, 16, or 32-bit operands. 

The general approach to a color graphics system fa 
straightforward and almost identical to a black and white , 
graphics system. A typical black and white graphics system fa 
shown in Figure 1. Tlie MPU has two responsibilities to toe 
graphics system: first, to initially program toe CRTC, and 
second, to transfer data to toe display RAM. 

Once the clock circuitry fa running, the CRTC is initialized 
and the address lines to toe dislay RAM begin incrementing ■ 
sequentially. As this occurs, the appropriate data from the 
display RAM is loaded into the shift register and then gated ' 
out serially ^ the dot clock input to the shift register. The 
display monitor then interprets the data as either turning a 
particular pfatel on or off. 

A color graphics system (Figure 2) uses toe same principle 
as the black and white system except that it has to control 
three color guns (red, green, and blue) instead of just one. 
Therefore, there fa an increase in the amount of hardware in¬ 
volved, but not in complexity. The software becomes more 
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Figore 3. MC68000 Programming Model 


SYSTEM HARDWARE DESCRIPTION AND 

features 

This graphics system consists of two boards: a CPU board 
and a video board. The CPU board contains the processor, 
scratch-pad RAM, stack RAM, the program EPROM, and a 
terminal interface. The video board contains the CRTC, 
tlisplay RAM, multiplexers and buffers, paraiiel-to-serial 
shift registers, and the D/A drivers for the color display 
monitor. 

An MC68000 Design Module (MEX68000KDM) is used as 
the CPU board. The resources available on the MC6SOOO 
Uesgn Module allow more design time to be spent on the 
mdque features of the system. The major portions of the 
Wem provided by the Design Module are the MPU 
(MC68000), the address decoding for the EPROM, a ter- 
t^nal interface, and all the software functions provided by 
me resident monitor (MACSbug). Included in the MACSbug 
t a transparent down-load feature which allows the system 
•o TOmmunicate through the terminal to another system. The 
other system can provide the access to the floppy disks need¬ 


ed by this color graphics system for saving a full screen of 
data at a time. 

The video board (Figure 4) contains more of the unique 
hardware features of the color graphics system. The video 
board can be separated into seven areas; the clock circuit, 
CRT controller, the DTACK circuit, the bus multiplexers 
and buffers, the display RAM, the shift re^sters, and the 
D/A converter drivers. 

The clock circuit generates the five timing signals, used 
throughout the video board; they are: a dot clock, a CRTC 
clock, a 2X dot dock, a shift register load, and a 02 signal. 
The dot clock is used to drive the serial shift registers. The 
CRTC clock is used to drive the CRTC. The 2X dot clock 
and the shift register load are gated together to generate the 
parallel load (PLOAD) and chip select (PCS) signals for the 
shift registers and display RAM, respectively. The 02 signal 
is also used to control accesses to the display RAM. A timing 
diagram of these signals is shown in Figure 5. / 
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Figwc 4. Color GmpMco SyMem Schematic (Sheet 1 of 3) 



































































































FIglira 4* Color Gimphkt SyMem Scliemitlc (Sheet 3 of 3) * 


Figuic 5. Clock Circuiliy TiminK Signab ' 


The MC6845 CRT controller (CRTC) is a programmable 
controller used to prepare the information in the display 
RAM for use by a video display monitor. The CRTC 
generates the signals required to provide data at the ap¬ 
propriate times. Since the length and period betvreen these 
signals varies from system to system, the CRTC is designed 
to be programmed by an MPU. In this system the internal 
registers are access ible synchronously through hex ($) address 
l^Uons SlFFFD and SIFFFF. After programming, the 
CRTC provides the addresses, horizontal and vertical sync 
^als, and the display enable signal to the display system. 
The addre^, output by the CRTC in conjunction with the 
parallel chip select (PCS) signal, are responsible for the cor- 
rw data getting to the serial shift registers at the correct 
hme. The horizontal and vertical sync signals, after being 
exclusively ORed,** generate the sync signal required by the 
color display monitor. The display enable (DE) signal is 
gated (U28) int o eith er the clock circuitry to inhibit the 
parallel load and PCS signals or is gated (ANDed at U110, if 
a low represenu black on the screen) with the data stream to 
keep the guns in the CRT off during vertical and horizontal 
rciracc. In some cases, DE must be delayed due to specific re- 
Q^ements of the CRT being used. A one-shot on the output 
of the DE pin is usually more than adequate for providing 
me delay. 

The DTACK circuitry is used to r eturn an asynchronous 
tota transfer acknowledge (DTACK) signal to the MC68000' 
rrom a synchronous device (the display RAM). The «2 signal 
wm the clock circuitry i n conjun ction srith address lines 
15 and A16 develop the DTACK response required by the 
tiSSS??*- th e display RAM address is between 

•O000-$17FFF, the DTACK signal is returned in 400 


nanosecond increments from zero up to 1600 nanoseconds 
after the enabling signal goes out to the multmlexers. This 
time is s elected by the RAM speed switch, SI. Returning 
DTACK to the processor is the asynchronous access method 
by which the MC68000 can access external devices (RAM, 
ROM, and peripherals). This access method was chosen over 
the synchronous access method used to address the CRTC 
because it is faster and, since this is a highly repetitive opera¬ 
tion, any time saved here will be significant in the overall 
speed of the system. The synchronous access method is used 
to access the CRTC since the CRTC is only initialized once 
and this method uses fewer components. 

The multiplexers and buffers are used to feed the various 
control signals to the rest of the system. Multiplexers UlO, 
UIl, and U12 determine which address bus will access the 
display RAM. When the control signal is high, the MC68000 
has access to the RAM and when low, the CRTC has access. 
Buffers U13, U14, and UlS are used to drive the large 
number of devices on the address bus. Data buffers U30-U37 
are used to isolate the four banks of RAM from each other. 
Buffers are also used for almost all the signals coining onto 
the video board. These board buffers interface with the 
mc^ified EXORciser bus which the Design Module uses. 
This bus has only sixteen address lines coming from the 
Design Module, so address line A17 must be run separately 
to keep the display RAM from being accessed at the same 
time MACSbug or the controller program is accessed (ad¬ 
dresses $20000 and $22000). 

The display RAM is organized into four banks (red, green, 
blue, and lumiimnce). However, the address lines are con- 
.ftgured so that consecutive words are located in consecutive 
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banks of RAM. This was done to allow the programmer to 
^visuaUze accessing one 16-bit wide bank at a time instead of 
accessing red, green, blue, and luminance banks all at the 
same time. The memories used are 4K X1 static RAMs < 
(MCM2147) which simpUiy some of the chip select circuitry. 
Dynamic RAMs could be used and should definitely be con¬ 
sidered in a production system since they lower the hardware 
cost as well as power consumption. They were omitted in this 
application to simplify the system configuration. It should be 
noted that the CRTC keeps incrementing its address lines 
during horizontai and vertical retrace to keep the dynamic 
RAM refreshed. The speed of the static memories is not 
critical due to the presence of the speed selection switch ex¬ 
plained earlier. As far as the CRTC and the serial shift 
renters are concerned, the memory looks like one 
4KX 64-bit bank of RAM. 

Shift registers U102-U109 consist of mght 8-bit, parallel¬ 
load, serial shift registers. They are configured to look like 
four 16-bit shift registers, one for each of the color guns and 
one for luminance. With the RAM and shift renters con¬ 
figured in this fashion, the RAM is accessed only 2S percent 
of the time. This means that the RAM has four times the 
amount of setup time and slower RAM can be used. The dot 
clock then clocks the data out to be gated with display 
enable. 

Conveision from digital to analog voltages in this system is 
needed because a luminance bit is used to obtain more colors 
than are possible with the three guns digitally. The luminance 
bit is used to indicate half luminance when set and full 
luminance when clear. When all guns are off, the screen is 
black and the state of the luminance bit has no effect. Since 
the color display monitor uses an analog input on each gun, 
any number of colors may be obtained if the supporting 
hardware is provided. The D/A convertion used in this 
system was done to save space. A cleaner method would be to 
use special D/A converters and special line drivers for this 
function. 


SOFTWARE DESCRIPTION AND CONSIDERATIONS 
The software included to exercise this system consists of 
five basic commands: 

CM — Clear Memory 
BX — Box Draw 
Q8 — Random Line 
ED — Edit 


BAl 

SHI“ 


Provides the capability of saving (BA) a screen on 
floppy disk and calling (SH) it back. 


The clear memory (CM) command clears the screen. The 
box drawing (BX) command draws continuously concentric 
boxes which close in on each other. This gives the effect of 
running up a hallway. The random line (Q8) drawing com¬ 
mand picks random points and coimects them together until 
they form a multisided polygon and then it continues to 
repeat that shape, all the while collapsing in on itself and 
changing colors. A scaling function has been implemented to 
keep the figure occupying a major portion of the screen. The 
edit (ED) command allows the user to draw figures on the 
screen using the cursor controls on the terminal and allows a 
choice of colors. The BA command is used to store a screen 
full of data on floppy disk while the SH command is used to 
call it from the floppy disk and display it on the screen. 

Each of the routines which write to the display RAM use 
the basic data layout for every pixel on the screen. Each pixel 
is controlled by four bits. Each bit corresponds to either 
luminance, blue, green, or red, as shown in Figure 6. 



Figure 6. Pixel Control Bit — Layout 


A memory map for this application is given in Figure 7. A 
listing of the software is given at the end of this application 
note. 

The resolution of the display in this application is 
2S6 X 256 pixels. The density could be doubled in both direc¬ 
tions to 512x512 by quadrupling the memory. This can be 
easily done if dynamic RAM is used since 4K X1 and 16iC X1 
dynamic RAM can be arranged in the same basic configura-', 
tions. As space was one of the design criteria in this sppiica- - 
tion, some of the more straightforward approaches were not - 
taken. ' { 



Figure 7. Memory Map 


Thanks to Don Voss of Motorola Microsystems for W 

suggestions on the hardware and his splendid job on the so 
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10 

00000000 

ORG $0000 

20 


* 

30 


■ * , , ; ' 

40 


* 

50 

000200F6 

MACSBUG EQU $200F6 

60 

00021BC2 

OUTPUT2 EQU $21BC2 

70 

00021F18 

FIXBUF EQU $21P18 

80 

000200BE 

MSG EQU $200EE 

90 

00001000 

XI EQU $1000 

100 

00001001 

Y1 EQU $1001 

110 

00001002 

X2 EQU $1002 

120 

00001003 

Y2 EQU $1003 

130 

00001010 

COLOR EQU $1010 

140 

00001011 

NCOLOR EQU $1011 

150 

00001012 

OCOLOR EQU $1012 

160 ■ 

00001014 

NUMPT EQU.$1014 

170 

00001016 

SCALE EQU $1016 

180 

00001018 

RANADD EQU $1018 

190 

. 00001080 

•- ARRAY EQU $1080 

200 

00001100 

TABLECH EQU $1100 

210 

00001800 

CMD.TAB EQU $1800 

220 


* 

230 


* 


000000 20780578 SETUP MOVE.L $578,A0 

000004 227C00001800 MOVE.L #CMDTAB,A1 
00000A 21C90578 MOVE.L Al,$578 

00000E 3018 SETOPl MOVE (A0)+,D0 

000010 0C40FPFP CMP' #$FFFF,D0 

000014 6706 BBQ.S SET0P2 

000016 32C0 MOVE D0,(A1)-I- 

000018 22D8 MOVE.L (A0)-1-, (Al} + 

00001A 60F2 - BRA SETUPl 

00001C B1FC00022000 SETUP2 CMP.L #$22000,A0 

000022 6A08 BPL.S INIT 

000024 207C00022082 MOVE.L #$22082,A0 

00002A 60E2 BRA SETUPl 

00002C 3280 INIT MOVE D0,(A1) 

00002E 207C000220D2 MOVE.L #$220D2,A0 

000034 303C0000 MOVE #$0000,D0 

000038 13C00001PFPD INITl MOVE.B D0,$1FFFD 

00003E 1218 MOVE.B (A0)+,D1 

000040 4E71 NOP 

000042 13C10001PFFP MOVE.B D1,$1FFFF 

000048 5240 ADD #1,D0 

00004A 0C400010 CMP #$0010,D0 

00004E 66E8 BNE INITl 

000050 227C000229F6 MOVE.L #$229F6,A1 

000056 247C00001100 MOVE.L #TABLECH,A2 

00005C 303C0302 MOVE #770,D0 

000060 14D9 SETUP21 MOVE.B (A1)-b, (A2)+ 

000062 5340 SUB #1,D0 . 

000064 66FA BNE SETUP21 

000066 6014 BRA.S RETURN 

000068 207C00010000 CM MOVE.L #$10000,A0 
00006E 323C2000 MOVE #$2000,D1 
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550 

000072 

4280 

CLR.l 

[- D0 

560 

000074 

20C0 

,CLRM MOVE.L D0,(A0) 

0 

000076 

5341 

SUB #1.D1 

0 

000078 

66FA 

BNE 

CLRM 

0 

00007A 

4E71 

NOP 


580 

00007C 

4EF9000200P6 

RETURN JMPMACSBUG- 

590 

000082 

43 

MTABLE DC.W 'CM* 

600 

000084 

00022068 

DC.L 

$22068 

610 

000088 

53 

DC.W 

•SH' 

620 

00008A 

000220E2 

DC.L 

$220E2 

630 

00008E 

42 

DC.W 

•BX' 

640 

000090 

0002218A 

DC.L 

$2218A 

650 

000094 

45 

DC.W 

• ED' 

660 

000096 

000221E8 

DC.L 

$221E8 

670 

00009A 

42 

DC.W 

•BA' 

680 

00009C 

00022454 

DC.L 

$22454 

690 

0000A0 

51 

DC.W 

•Ql' 

700 

0000A2 

00022498 

DC.L 

$22498 

710 

0000A6 

51 

DC.W 

•Q2' 

720 

0000A8 

000224A4 

DC.L 

$224A4 

730 

0000AC 

51 

DC.W 

•Q3' 

740 

0000AB 

000224B0 

DC.L 

$224B0 

750 

0000B2 

51 

DC.W 

•Q4' 

760 

0000B4 

000224BC 

DC.L 

$224BC 

770 

0000B8 

51 

DC.W 

•Q5' 

780 

0000BA 

000224C8 

DC.L 

$224C8 

790 

0000BE 

51 

DC.W 

•Q9' 

800 

0000C0 

00022606 

DC.L 

$22606 

810 

0000C4 

48 

DC.W 

•HP' 

820 

0000C6 

000226AC 

DC.L 

$226AC 

830 

0000CA 

.51 

DC.W 

•Q8' 

840 

0000CC 

00022818 

DC.L 

$22818 

8 50 

0000D0 

FFFF 

DC.W 

$FFFF ■ 

860 



* 


870 



* 


880 



* 


890 



* 


900 

0000D2 

27 

CRTC DC.B $27 

910 

0000D3 

20 

DC.B 

$20 

920 

0000D4 

22 

DC.B 

$22. 

930 

0000D5 

A3 

DC.B 

$A3 

940 

0000D6 

20 

DC.B 

$20 

950 

0000D7 

06 

DC.B 

$06 

960 

0000D8 

IF 

DC.B 

$1F 

970 

0000D9 

IF 

DC.B 

$1F 

980 

0000DA 

10 

DC.B 

$10 

990 

0000DB 

07 

DC.B 

7 

1000 

0000DC 

00000000 

DC.L 

0 

1010 

0000E0 

0000 

DC.W 

0 

1020 



* 


1030 



* 


1040 

0000E2 

61000004 

SH BSR SHQ 

1050 

0000E6 

6094 

BRA RETURN 

1060 

0000E8 

4EB900021BC2 

SHQ JSR OUTPUT2 

1070 

0000EE 

227C0003FF21 

MOVE. 

L #$3FF21,A1 
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1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
i340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 i 
1620 I 


H 0000F4 
3 0000F8 
3 0000FC 
3 0000FE 
000102 
000104 
000106 
00010A 
00010E 
000110 
000114 
000116 
00011A 
00011C 
000122 
000128 
00012E 
000134 
00013A 
000140 
000146 
00014C 
000150 
000154 
000158 
00015A 
00015E 
000160 
000162 
000164 
00016A 
00016C 
00016E 
000170 
000174 
000176 
00017A 
00017C 
00017E 
000182 
000184 
000188 
00018A 
00018C : 
00018E 
000190 
000194 : 
00019A ( 
00019E ! 
0001A0 ( 
0001A2 ( 
0001A4 ! 
0001A6 I 
0001A8 ! 
0001AA I 


1 61000078 
3 0C00000D 
: 6708 

! 0C0000FF 

2 66F0 
t 6040 

> 61000066 
^ 0C00000A 
! 67F6 
I 0C000000 
1 67F0 
I 0C0000FF 
i 672A 

4EB900021F18 

2CFC4552524F 

2CFC52203B43 

2CFC4845434B 

2CPC2046494C 

2CFC45202020 

4EF9000200EE 

207C00010000 

103C0055 

6100002A 

61000018 

1200 

61000012 

E140 

1001 

30C0 

B1FC00017F80 

66E8 

4E75 

1011 

02000001 

67F8 

10290002 

4E75 

lEll 

02070002 

67F8 

13400002 

4E75 

4240 

3200 

3400 

363C003F 

207C00010000 

61000016 

5543 

6A02 

60EC 

5240 

5241 

5242 

D1FC00000202 


SHI BSR INPUT . 

CMP.B #$0D,D0 
BEQ.S.SH2 
CMP.B #$FF-,D0 
BNE SHI 
BRA.S SH3 
SH2 BSR. INPUT 
CMP.B #$0A,D0 
BEQ SH2 
CMP.B #0,D0 
BEQ SH2 ' . 

CMP.B #$PF,D0 
BEQ.S SH3 
JSR FIXBUF 

MOVE.L #»ERR0',(A6)+ 
MOVE.L #'R ;C*,(A6)+ 
MOVE.L i'HECK',(A6)+ 
MOVE.L #• FIL',(A6)+ 
MOVE.L #'E (A6)+ 

JMP MSG 

SH3 MOVE.L #$10000,A0 
MOVE.B #$55,D0 
BSR OUTPUT 
SH4 BSR INPUT 
MOVE.B D0,D1 
BSR INPUT 
ASL 8,D0 
MOVE.B D1,D0 
MOVE.W D0,(A0)+ 

CMP.L #$17F80,A0 

BNE- SH4 

RTS 

INPUT MOVE.B (A1),D0 
AND.B #1,D0 
BEQ INPUT 
MOVE.B 2(A1),D0 
RTS 

OUTPUT MOVE.B (A1),D7 
AND.B #2,D7 
BEQ OUTPUT 
MOVE.B D0,2(A1) 

RTS 

BX CLR D0 
MOVE D0,D1 
MOVE D0,D2 
BX3 MOVE #$3F,D3 
MOVE.L #$10000,A0 
BXl BSR SHOW 
SUB #2,D3 
BPL.S BX2 
BRA BX3 
BX2 ADD #1,D0 
ADD #1,D1 
ADD #1,D2 
ADD.L #514,A0 
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1630 

0001B0 

60E8 

BRA BXI 

1640 

0001B2 

3803 

SHOW MOVE D3,D4 

1650 

0001B4 

30C0 

BXll MOVE D0,(A0)+ 

0 

0001B6 

5344 

SUB #1,D4 

0 

0001B8 

66FA 

BNE BXll 

1670 

0001BA 

3080 

MOVE D0,(A0) 

1680 

0001BC 

3803 

MOVE D3,D4 

1690 

0001BE 

E544 

ASL 2,D4 

1700 

0001C0 

D1FC00000080 

BX22 ADD.L #128,A0 

1710 

0001C6 

3081 

MOVE D1,{A0) 

0 

0001C8 

5344 

SUB #1,D4 

0 

0001CA 

66F4 

BNE BX22 

1730 

0001CC 

3803 

MOVE D3,D4 

1740 

0001CE 

3080 

MOVE D0,{A0) 

1750 

0001D0 

3100 

BX33 MOVE D0,-(A0) 

0 

0001D2 

5344 

SUB #l,D4 

0 

0001D4 

66FA 

BNE BX33 

1770 

0001D6 

3803 

MOVE D3,D4 

1780 

0001D8 

E544 

ASL 2,D4 

1790 

0001DA 

91FC00000080 

BX44 SUB.L 1128,A0 

1800 

0001E0 

3082 

MOVE D2,{A0) 

0 

0001E2 

5344 

SUB #1,D4 

0 

0001E4 

66F4 

BNE BX44 

1820 

0001E6 

4E75 

RTS 

1830 



* 

1840 



* 

1850 



* 

1860 

0001E8 

11FC00801000 

ED MOVE.B #$80,XI 

1870 

0001EE 

11FC00801001 

MOVE.B #$80,Y1 

1880 

0001F4 

11FC00001011 

MOVE.B #0,NCOLOR 

1890 

0001FA 

6100014E 

EDI BSR BLINK 

1900 

0001FE 

61000004 

BSR CMD 

1910 

000202 

60F6 

BRA EDI 

1920 

000204 

61000230 

CMD BSR READK 

1930 

000208 

0C010020 

CMP.B #$20,D1 

1940 

00020c 

6A4S 

BPL.S RTS 

1950 

00020E 

0C01000B 

CMP.B #$B,D1 

1960 

000212 

673C 

BEQ.S UPARROW 

1970 

000214 

0C01000A 

CMP.B #$A,D1 

1980 

000218 

673E 

BEQ.S DWARROW 

1990 

00021A 

0C01000C 

CMP.B #$C,D1 

2000 

00021E 

673E 

BEQ.S RTARROW 

2010 

000220 

0C010008 

CMP.B #$8,D1 

2020 

000224 

673E 

BEQ.S LTARROW 

2030 

000226 

0C010001 

CMP.B #$1,D1 

2040 

00022A 

673E 

BEQ.S CMDl CHARMODE 

2050 

00022c 

0C010003 

CMP.B #$3,D1 

2060 

000230 

6756 

BEQ.S CMD2 NCOLOR 

2070 

000232 

0C010004 

CMP.B #$4,D1 

2080 

000236 

6738 

BEQ.S CMD3 

2090 

000238 

0C01000D 

CMP.B #$0D,D1 

2100 

00023C 

673E 

BEQ.S CR 

2110 

00023E 

0C0r0005 

CMP.B #$5,D1 

2120 

000242 

6732 

BEQ.S CMD4 

2130 

000244 

0C010011 

CMP.B #$11,D1 
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2140 

000248 

660A 

BNE.S RTSl 


2150 

00024A 

588P 

ADD.L #4,A7 


2160 

00024C 

6000FE2E 

BRA RETURN 


2170 

000250 

53381001 

UPARROW SUB.B #1,Y1 


2180 

000254 

4241 

RTSl CLR D1 


2190 

000256 

4E75 

RTS RTS 


2200 

000258 

52381001 

DWARROW ADD.B #1,Y1 


2210 

00025C 

60F6 

BRA RTSl 


2220 

00025E 

52381000 

RTARROW ADD.B #l,Xl 

' ' i 

2230 

000262 

60F0 

BRA RTSl 

i 

; 2240 

000264 

53381000 

LTARROW SUB.B #1,X1 


2250 

000268 

60EA 

BRA RTSl 


2260 

00026A 

588F 

CMDl ADD.L #4,A7 


2270 

00026C 

60000132 

BRA CHARED 


2280 

000270 

588F 

CMD3 ADD.L #4,A7 


2290 

000272 

^00001A8 

BRA DOT 


2300 

000276 

588F 

CMD4 ADD.L #4,A7 


2310 

000278 

6000FF80 

BRA EDI 


2320 

00027C 

5E381001 

CR ADD.B #7,Y1 


2330 

000280 

11PC00001000 

MOVE.B #0,X1 


2340 

000286 

60CC 

BRA RTSl 


2350 

000288 

610001AC 

CMD2 BSR READK 


• 2360 

00028C 

267C00001011 

MOVE.L #NCOLOR,A3 


2370 

000292 

0C010052 

CMP.B #'R',D1 

' : 

2380 

000296 

6758 

BEQ.S RED 

j. 

.2390 

000298 

0C010047 

CMP.B #*G',D1 

3« 

2400 

00029C 

6758 

BEQ.S GREEN 

: 

2410 

00029E 

0C010042 

CMP.B #’B*,D1 


2420 

0002A2 

6758 

BEQ.S BLUE ' 


2430 

0002A4 

0C010057 

•CMP.B #'W',D1 


2440 

0002A8 

6758 

BEQ.S WHITE 


2450 

0002AA 

0C01005A 

CMP.B #*Z*,D1 


2460 

0002AE 

6758 

BEQ.S BLACK 


2470 

0002B0 

0C010059 

CMP.B #'Y',D1 


2480 

0002B4 

6758 

BEQ.S YELLOW 


2490 

0002B6 

0C01004D 

CMP.B #'M',D1 


2500 

0002BA 

6758 

BEQ.S MAG 


2510 

0002BC 

0C010043 

CMP.B #'C',D1 


2520 

0002C0 

6758 

BEQ.S CYAN 


2530 

0002C2 

0C010054 

CMP.B #'T',D1 


2540 

0002C6 

6758 

BEQ.S DRED 


- 2550 

0002C8 

0C010048 

CMP.B #'H',D1 


2560 

0002CC 

6758 

BEQ.S DGR 


2570 

0002CE 

0C01004E 

CMP.B #*N',D1 


2580 

0002D2 

6758 

BEQ.S DBLUE 


2590 

0002D4 

0C010045 

CMP.B #•£•,D1 


2600 

0002D8 

6758 

BEQ.S DWH 


2610 

0002DA 

0C010055 

CMP.B #'U',D1 


2620 

0002OE 

6758 

BEQ.S DYEL 

I' 

2630 

0002E0 

0C01002C 

CMP.B #',',D1 


2640 

0002E4 

6758 

BEQ.S DMAG 

i:.. 

2650 

0002E6 

0C010056 

CMP.B #»V',D1 


2660 

0002EA 

6758 

BEQ.S DCYAN 

t: 

2670 

0002EC 

4241 

RTS2 CLR D1 


2680 

0002BE 

4E75 

RTS 


1 ^ 
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2690 0002F0 16BC0009 
2700 0002F4 60F6 
2710 0002F6 16BC000A 
2720 0002FA .60F0 
2730 0002FC 16BC000C 
2740 000300 60EA 
2750 000302 16BC000P - 
2760 000306 60E4 
2770 000308 16BC0000 
2780 00030C 60DE 
2790 00030E 16BC000B 
2800 000312 60D8 
2810 000314 16BC000D 
2820 000318 60D2 
2830 00031A 16BC000E 
2840 00031E 60CC 
2850 000320 16BC0001 
2860 000324 60C6 
2870 000326 16BC0002 
2880 00032A 60C0 
2890 00032C 16BC0004 
2900 000330 60BA 
2910 000332 16BC0007 
2920 000336 60B4 
2930 000338 16BC0003 
2940 00033C 60AE 
2950 00033E 16BC0005 
2960 000342 60A8 
2970 000344 16BC0006 
2980 000348 60A2 
2990 

3000 '00034A 12381000 
3010 00034B 14381001 
3020 000352 61000226 
3030 000356 4643 
3040 000358 0C03000F 
3050 00035C 6706 
3060 00035E E84B 
3070 000360 E849 
30§0 000362 60F4 
3090 000364 11C11012 
3100 000368 103C000F 
3110 00036C 12381000 
3120 000370 14381001 
3130 000374 610001DE 
3140 000378 610000D0 
3150 00037C 4200 
3160 00037E 610001D4 
3170 000382 610000C6 
3180 000386 10381012 
3190 00038A 610001C8 
3200 00038E 610000BA 
3210 000392 10390003FF01 
3220 000398 02000001 
3230 00039C 67CA 


RED MOVE.B #$9,(A3) 
BRA RTS2 

GREEN MOVE.B #$A,(A3) 
BRA RTS2 

blue MOVE.B #$C,(A3) 
BRA RTS2 

WHITE MOVE.B #$F,(A3) 
BRA RTS2 

BLACK MOVE.B #0,(A3) 
BRA RTS2 

YELLOW MOVE.B #$B,(A3) 
BRA RTS2 

MAG MOVE.B #$D,(A3)' 
BRA RTS2 

CYAN MOVE.B #$E,(A3) 
BRA RTS2 

DRED MOVE.B #1,(A3) 

BRA RTS2 

DGR MOVE.B #2,(A3) 

BRA RTS2 

DBLUE MOVE.B #4,(A3) 
BRA RTS2 

DWH MOVE.B #7,(A3) 

BRA RTS2 

DYEL MOVE.B #3,(A3) 

BRA RTS2 

DMAG MOVE.B #5,(A3) 

BRA RTS2 

DCYAN MOVE.B #6,(A3) 
BRA RTS2 . 

* 

blink MOVE.B XI,D1 
MOVE.B Y1,D2 
BSR GETADD 
NOT D3 

BL2 CMP.B #$F,D3 
BEQ.S BLl 
LSR 4,D3 
LSR 4,D1 
BRA BL2 

BLl MOVE.B Dl,OCOLOR 
BL3 MOVE.B #$F,D0 
MOVE.B XI,D1 
MOVE.B Y1,D2 
BSR DSP 
BSR DLY 
CLR.B D0 
BSR DSP 
BSR DLY 

MOVE.B OCOLOR,D0 
BSR DSP 
BSR DLY 

MOVE.B $3PF01,D0 
AND.B #1,D0 
BEQ BL3 


410 


SETUP4.S MC68000 ASM REV=1.0F- COPYRIGHT.BY MOTOROLA 1978 
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0003A0 

0003A6 

0003A8 

0003AC 

0003AE 

0003B0 

0003B4 

0003B6 

0003BA 

0003BC 

0003C2 

0003C8 

0003CA 

0003CE 

0003D0 

0003D2 

0003D4 

000308 

0003DA 

0003OE 

0003E0 

0003E4 

0003EA 

0003EE 

0003F0 

0003F2 

0003F6 

0003F8 

0003FC 

0003FE 

000402 

000408 

00040A 

00040E 

000412 

000416 

00041A 


31F810001002 

61A2 

6100FE5A 

4A01 

67F0 

61000004 

60EA 

04010020 

E741 

267C00001100 

0281000003PF 

D7C1 

3C3C0004 

4245 

0B13 

6636 

52381002 

5245 

0C450010 

6618 

52381003 

11F810001002 

D7F80002 

5346 

66 DC 

50381000 

4E75 

0C450008 

66D2 

52381003 

11F810001002 

60C6 

10381011 

12381002 

14381003 

6100013C 

60B8 


CHARED MOVE XI,X2 
BSR BLINK 
BSR CMD 

TST.B D1 / :^ •: 

BEQ CHARED 
BSR CHAR 
BRA CHARED 
CHAR SUB.B #$20,D1 
ASL 3,D1 

MOVE.L #TABLECH,A3 
AND.L #$3FF,D1 ■ 

ADD.L D1,A3 : '. ■ 

MOVE #4,D6 , . , . 

CHAREDl CLR D5 
CHARED2 BTST D5,(A3) 
BNE.S SET 

CHARED3 ADD.B #1,X2 
ADD #1,D5 - 

CMP #16,D5 
BNE;S CHARED4 
ADD.B #1,Y2 
MOVE.B XI,X2 ' 

ADD.L $2,A3 
SUB #1,D6 , 

BNE CHAREDl 
ADD.B #8,XI 
RTS 

CHARED4 CMP #8,D5 ^ 

BNE CHARED2 
ADD.B #l,y2 . 

MOVE.B XI,X2 
BRA CHARED2 
SET MOVE.B NCOLOR,D0 
MOVE.B X2,D1 
MOVE.B Y2,D2 
BSR DSP 
BRA CHARED3 , 


00041C 

000420 

000424 

000428 

00042C 

000430 

000434 


10381011 

12381000 

14381001 

6100012A 

6100FF1C 

6100FDD2 

60E6 


000436 12390003PF01 
00043C 02010001 
000440 67F4 
000442 12390003FF03 
000448 4E75 
00044A 3C3C00FF 
00044E 5346 


DOT MOVE.B NCOLOR,D0 
MOVE.B XI,D1 
MOVE.B Y1,D2 
BSR DSP 
BSR BLINK 
BSR CMD 
BRA DOT 

* 

READK MOVE.B $3FF01,D1 
AND.B #1,D1 
BEQ READK 
MOVE.B $3FF03,D1 
RTS 

DLY MOVE #$00FF,D6 

DLYl SUB #1,D6 ' 
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3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040- 

4050 

4060 

4070 

4080' 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 1 

4280 

4290 I 

4300 I 

4310 I 

4320 I 


000450 66FC 
000452 4E75 


000454 

00045A 

000460 

000466 

000468 

00046C 

00046E 

000472 

000474 

000476 

00047A 

00047C 

00047E 


000482 

000484 

000488 

00048A 

00048C 

000492 

000494 


000498 

00049E 

0004A2 

0004A4 

0004AA 

0004AE 

0004B0 

0004B6 

0004BA 

0004BC 

0004C2 

0004C6 

0004C8 

0004CE 

000402 

0004D6 


207C00010000 

227C0003FF23 

247C0003FF21 

1212 

02010002 

67F8 

103C0065 

1280 

1212 

02010002 

67F8 

3018 

1280 

E048 

1212 

02010002 

67F8 

1280 

B1FC00018000 

66E0 

6000FBE6 


BNE DLYl 
RTS 


BA MOVE.L #$10000,A0 
MOVE.L #$3FF23,A1 
MOVE.L #$3FF21,A2 
LI MOVE.B (A2),D1 
AND.B #$2,D1 
BEQ LI 

MOVE.B #S65,D0 
MOVE.B D0,(A1) 

LOOP MOVE.B (A2),D1 
AND.B #$2,D1 
BEQ LOOP 
MOVE (A0)+,D0 
MOVE.B D0,(A1) 

LSR 8,00 

L2 MOVE.B (A2),D1 
AND.B #$2,D1 
BEQ L2 

MOVE.B D0,(A1) 

CMP.L #$18000,A0 
BNE LOOP 
BRA RETURN 


2C7C000225AC 

3E3C0010 

602B 

2C7C000225BE 

3E3C0010 

6022 

2C7C000225D0 
3E3C0010 . 
6016 

2C7C000225E2 

3E3C0010 

600A 

2C7C000225P4 

3E3C0010 

61000006 

6000FBA4 


Q1 MOVE.L #$225AC,A6 
MOVE #$10,07 
BRA.S RUN 

Q2 MOVE.L #$225BE,A6 
MOVE #$10,07 
BRA.S RUN 

Q3 MOVE.L #$22500,A6 
MOVE #$10,07 
BRA.S RUN 

Q4 MOVE.L #$225E2,A6 
MOVE #$10,07 
BRA.S RUN 

Q5 MOVE.L #$225F4,A6 
MOVE #$10,07 

RUN BSR RUNl 
BRA RETURN 


0004DA 3C3C0080 RUNl MOVE #128,06 

0004DE 61000034 BSR RAND 

0004E2 4E96 RUN2 JSR (A6) 

0004E4 48E76000 MOVBM.L 01/02,-•(A7) 

0004E8 0241007F AND #$7F,D1 

0004EC 0242007F AND #$7F,D2 

0004F0 61000068 BSR DSPLY 
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4330 0004F4 4401 
4340 0004F6 61000062 
4350 0004FA 4402 
4360 0004FC 6100005C 
4370 000500 4401 
4380 000502 61000056 
4390 000506 4CDP0006 
0 00050A 5346 
0 00050C 6604 
0 00il50E 5347 
0 000510 66C8 
4420 000512 4E75 
4430 
4440 
4450 

4460 000514 6100001C 
4470 000518 3200 
4480 00051A 61000016 
4490 00051E 3400 
4500 000520 61000010 
4510 000524 0200000F 
4520 000528 67P6 
4530 00052A 0C000008 
4540 00052E 67F0 
4550 000530 4E75 
4560 000532 10381019 
4570 000536 E500 
4580 000538 00381018 
4590 00053C E140 
4600 00053E 10381019 
4610 000542 E540 
4620 000544 00781018 
4630 000548 06403619 
4640 00054C 31C01018 
4650 000550 E048 
4660 000552 4E75 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 

4750 000554 48E7F080 
4760 000558 600C 
4770 

4780 00055A 48E7F080 
4790 00055E 06010080 
4800 000562 06020080 
4810 000566 0240000F 
4820 00056A 6100000E 
4830 00056E C243 
4840 000570 8041 
4850 000572 3080 


NEG.B 01 
BSR DSPLY 
NEG.B 02 
BSR DSPLY 
NEG.B 01 . 

BSR DSPLY 

MOVEM.L (A7)+,01/02 
SUB #1,D6 
BNE ' RUN2 
SUB #1,D7 
BNE RUNl 
RTS 
* ■ 

* 

rand BSR RANDl 
MOVE 00,01 
BSR RANDl 
MOVE 00,02 
RAND2 BSR RANDl 
AND.B #$F,D0 
BEQ RAND2 
CMP.B #$08,00 
BEQ RAND2 
.RTS 

RANDl MOVE.B RANADD+1,D0 
ASL.B 2,D0 
ADD.B RANADD,D0 
ASL 8,00 

MOVE.B RANADD+1,D0 

ASL 2,D0 

ADD RANADD,D0 

add #$3619,00 

MOVE D0,RANADD 

LSR 8,D0 

RTS 


*DSPLY(C,X,Y) 

* D0=COLOR 

* D1=X 8-BITS 

* D2=Y 8-BITS 

* 

DSP MOVEM.L D0-D3/A0,-(A7) 
BRA.S DSPl 

* 

DSPLY MOVEM.L D0-D3/A0,-(A7) 
ADD.B #128,D1 
ADD.B #128,D2 
DSPl AND #$F,D0 
BSR GETADD 
AND 03,D1 
OR 01,00 
MOVE 00,(A0) 
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4860 000574 4CDF010F 
4870 000578 4E75 
4880 00057A 024100FF 
4890 00057E^363CFFF0 
4900 000582 E142 
4910 000584 D242 
4920 000586 02810000FFFF 
4930 00058C 3401 
4940 00058E E449 
4950 000590 E341 
4960 000592 207C00010000 
4970 000598 DlCl 
4980 000S9A 02420003 
4990 00059E 6703 
5000 0005A0 E940 
5010 0005A2 E95B 
0 0005A4 5342 
0 0005A6 66F8 
5030 0005A8 3210 
5040 0005AA 4E75 
5050 
5060 

5070 0005AC 3601 
5080 0005AE 3802 
5090 0005B0 4883 
5100 0005B2 4884 
5110 0005B4 E64B 
5120 0005B6 E64C 
5130 0005B8 9403 
5140 0005BA 9204 
5150 0005BC 4E75 
5160 

5170 0005BE 3602 
5180 0005C0 4883 
5190 0005C2 E64B 
5200 0005C4 9203 
5210 0005C6 3801 
5220 0005C8 4884 
5230 0005CA E64C 
5240 0005CC D404 
5250 0005CE 4E75 
5260 
5270 

5280 0005D0 3602 
5290 000SD2 4883 
5300 0005D4 E24B 
5310 0005D6 D203 
5320 0005D8 3801 
5330 0005DA 4834 
5340 0005DC E24C 
5350 0005DE 9404 
5360 0005E0 4B75 
5370 

5380 0005E2 3602 
5390 0005E4 4883 


MOVEM.L {A7)+,D0-D3/A0 
RTS 

GETADD AND i$FF,Dl 
MOVE #$FFF0,D3 
ASL 8,D2 
ADD D2,D1 
AND.L #$FFFF,D1 
MOVE D1,D2 
LSR 2,D1 
ASL 1,D1 

MOVE.L #$10000,A0 
ADD.L D1,A0 
AND #3,D2 
BEQ.S DSPLYl 
DSPLY2 ASL 4,D0 
ROL 4,D3 
SUB #1,D2 
BNE DSPLY2 
DSPLYl MOVE (A0),D1 
RTS 

* 

EQUl MOVE D1,D3 
MOVE D2,D4 
EXT D3 
EXT D4 
LSR 3,D3 
LSR 3,D4 
SUB.B D3,D2 
SUB.B D4,D1 
RTS 

* . . 

EQU2 MOVE D2,D3 
EXT D3 
LSR 3,D3 
SUB.B D3,D1 
MOVE D1,D4 
EXT D4 
LSR 3,D4 
ADD.B D4,D2 
RTS 

* 

* 

EQU3 MOVE D2,D3 
EXT D3 
LSR 1,D3 
ADD.B D3,D1 
MOVE D1,D4 
EXT D4 
LSR.1,D4 
SUB.B D4,D2 
RTS 

* 

EQU4 MOVE D2,D3 
EXT D3 
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5400 0005E6 E64B LSR 3,D3 >. ■ 

5410 0005E8 9203 SUB.B D3,D1 ^ 

5420 0005EA 3801 MOVE D1,D4 

5430 0005EC 4884 EXT D4 

5440 0005EE E64C LSR 3,D4 

5450 0005F0 9404 SUB.B D4,D2 

5460 0005F2 4E75 RTS 

5470 * 

5480 0005F4 3602 EQU5 MOVE D2,D3 • 

5490 0005F6 4883 EXT D3 

5500 0005F8 E24B LSR 1,D3 

5510 0005FA 9203 SUB.B D3,D1 . 

5520 0005FC 3801 MOVE D1,D4 ' 

5530 0005FE 4884 EXT D4 . 

5540 000600 E44C LSR 2,D4 - ■ - 

5550 000602 D404 ‘ ADD.B D4,D2 

5560 000604 4E75 RTS 

5570 000606 2C7C000225AC Q9 MOVE.L #$225AC,A6 

5580 00060C 3A3C0002 Q91 MOVE #2,D5 

5590 000610 61000044 Q92 BSR CMQ 

5600 000614 3E3C0020 MOVE #$20,D7 

5610 000618 6100FEC0 BSR RUNl 

5620 00061C'6100002C BSR DLYQ 

5630 000620 48E70402 MOVEM.L D5/A6,“(A7) 

5640 000624 6100008E BSR HPl 

.5650 000628 4CDP4020 MOVEM.L (A7)+,D5/A6 

5660 00062C 6100001C BSR DLYQ 

0 000630 5345 SUB- #1,D5 

0 000632 66DC BNE Q92 

5680 000634 61000034 BSR LOGO 

5690 000638 DDFC00000012 ADD.L #$12,A6 
5700 00063E BDFC00022606 CMP.L #$22606,A6 
5710 000644 670001D2 BEQ Q8 

5720 000648 60C2 BRA Q91 

5730 00064A 283C000AFFFF DLYQ MOVE.L #$000AFFFF,D4 

5740 000650 5384 DLYQl SUB.L #1,D4 

5750 000652 66FC BNE DLYQl 

5760 000654 4E75 RTS 

5770 000656 4280 CMQ CLR.L D0 

5780 000658 323C2000 MOVE #$2000,D1 

5790 00065C 207C00010000 MOVE.L #$10000,A0 

5800 000662 20C0 CMQl MOVE.L D0,(A0)-^ 

0 000664 5341 SOB #1,D1 

0 000666 66FA BNE CMQl 

5820 000668 4E75 RTS 

5830 00066A 48E7FFFE LOGO MOVEM.L D0-D7/A0-A6,-(A7) 
5840 00066E 4EB900021F18 JSR FIXBUF 
5850 000674 2CFC53482053 MOVE.L #'SH S',(A6)-f 
5860 00067A 2CFC4C494445 MOVE.L #•LIDE*,(A6)+ 

5870 000680 1CBC0020 MOVE.B #• ’,(A6 ) 

5880 000684 6100FA62 BSR SHQ 

5890 000688 61C0 BSR DLYQ 

5900 00068A 4EB900021F18 JSR FIXBUF 

5910 000690 2CFC5348204D MOVE.L #'SH M',(A6)+ 

5920 000696 2CFC41534B20 MOVE.L #*ASK ’,(A6)+ 
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5930 00069C 6100FA4A BSR SHQ 

5940 0006A0 4CDF7FPF MOVEM.L {A7)+,D0-‘D7/A0-A6 

5950-0006A4 283C0010FFFF MOVE.L t$0010FFFF,D4 

5960 0006AA 60A4 BRA DLYQl 

5970 * 

5980 0006AC 61000006 HP BSR HPl 

5990 0006B0 6000F9CA BRA RETURN 

6000 0006B4 267C00001080 HPl MOVE.L ♦ARRAY,A3 

6010 0006BA 619A BSR CMQ 

6020 0006BC 4241 CLR 01 

6030 0006BE 4242 CLR 02 

6040 0006C0 363C00FF MOVE f$FF,03 

6050 0006C4 3803 MOVE 03,04 

6060 0006C6 6100FE6A BSR RANOl 

6070 0006CA 02000007 AND.B #7,00 

6080 0006CE 5A00 AOO.B #5,00 / ' 

6090 000600 E340 ASL 1,00 

6100 000602<11C01014 MOVE.B O0,NUMPT 

6110 000606 6100FE5A BSR RANOl 

6120 0006OA 0200001P AMO.B #$1F,D0 

6130 0006OE 00000005 OR.B #$5,00 

6140 0006E2 11C01016 MOVE.B'00,SCALE 

6150 0006E6 4245 CLR 05 . 

6160 0006B8 6100FE48 H6 BSR RANOl 
6170 0006EC 024000FF ANO #$FF,O0 . 

6180 0006F0 17805000 MOVE.B 00,0(A3,05) 

6190 0006F4 B240 CMP 00,01 

6200 0006F6 6A02 BPL.S HI 

6210 0006F8 1200 MOVE.B 00,01 

6220 0006FA B640 HI CMP 00,03 

6230 0006FC 6B02 BMI.S H2 

6240 0006FB 1600 MOVE.B 00,03 

6250 000700 6100PE30 H2 BSR RANOl 

6260 000704 024000FF ANO #$FF,O0 

6270 000708 17805001 MOVE.B 00,1{A3,05) 

6280 00070C B440 CMP 00,02 

6290 00070E 6A02 BPL.S H3 

6300 000710 1400 MOVE.B 00,02 

6310 000712 B840 H3 CMP 00,04 

6320 000714 6B02 BMI.S H4 

6330 000716 1800 MOVE.B 00,04 

6340 000718 BA381014 H4 CMP.B NUMPT,D5 
6350 00071C 6704 BEQ.S H5 

6360 00071E 5405 AOO.B #2,05 

6370 000720 60C6 BRA H6 

6380 00000722 H5 EQU * 

6390 000722 9203 H8 SUB.B 03,01 

6400 000724 9404 SUB.B 04,02 

6410 000726 4245 CLR 05 

6420 000728 97335000 H61 SUB.B 03,0(A3,05) 

6430 00072C 99335001 SUB.B 04,1{A3,05) 

6440 000730 BA381014 CMP.B NUMPT,05 

6450 000734 6704 BEQ.S H9 

6460 000736 5405 AOO.B #2,05 

6470 000738 60BB BRA H61 
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6480 
6490 
6500 
6510 
6520 
6530 
6 540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 f 
7010 { 
7020 t 


3 00073A 
3 00073C 
000742 
000746 
000748 
00074A 
00074E 
000750 
000752 
000756 
00075A 
00075C 
00075E 
000760 
000766 
00076A 
00076C 
00076E 
000772 
000774 
000776 
00077A 
00077E 
000780 
000782 
000784 
000788 
00078C 
000790 
000794 
000798 
00079C 
0007A0 
0007A4 
0007A6 
0007AA I 
0007AC ! 
0007B0 I 
0007B2 
0007B4 
0007B8 
0007BC I 
0007C0 I 
0007C4 ( 
0007C6 ; 
0007CA : 
0007CE i 
000702 ( 
000706 ! 
000708 : 
0007OC ( 
0007E0 C 
0007E2 I 
0007E4 I 
0007E8 ] 


\ 4243 

2 203C0000FF00 
2 024100FF 
5 80C1 
i 4245 
i 16335000 
! C6C0 
i E04B 
! 17835000 
i .BA381014 
^ 6704 
: 5405 
; 60EA 

I 203C0000FF00 
> 024200FF 
L 80C2 
: 4245 
: 16335001 
; C6C0 
E04B 

17835001 

BA381014 

6704 

5405 

60EA 

31031000 

3E3C001C 

54381014 

1A381014 

37935000 

3C3C0004 

6100FD94 

0240000F 

67F2 

0C000008 

67EC 

0C00000F 

67E6 

4245 

12335000 

14335001 

6100008A 

BA381014 

6748 

12335002 

14335000 

024100FF 

024200FF 

9242 

16381016 

024300PF 

C3C3 

E049 

03335000 . 
12335003 


H9 CLR 03 

I MOVE.L #$FF00,D0 
ANO #$PF,01 
OIVU 01,00 
CLR 05 

H12 MOVE.B 0(A3,05),03 
MULU-00,03 
LSR 8,03 

MOVE.B 03,0(A3,05) 
CMP.B NUMPT,D5 
BEQ.S Hll • 

AOO.B #2,05 
BRA HI2 

Hll MOVE.L #$PF00,D0 
ANO #$PP,02 
OIVU 02,00 
CLR 05 ' 

H14 MOVE.B 1{A3,05),03 
MULU 00,03 
LSR 8,03 

MOVE.B 03,1(A3,05) 
CMP.B NUMPT,05 
BEQ.S H13 
AOO.B #2,05 
BRA HI 4 

H13 MOVE (A3),XI 
H131-M0VE #S1C,D7 
H132 AOO.B #2,NUMPT 
MOVE.B NUMPT,B5 
MOVE (A3),0(A3,05) 

H15 MOVE #4,06 
BSR RANOl 
and #$F,D0 
BEQ HI 5 
CMP.B #$8,00 
BEQ HI5 
CMP.B #$F,D0 
BEQ H15 
HP6 CLR 05 

H17 MOVE.B 0(A3,05),01 
MOVE.B 1(A3,05),02 
HP17 BSR LINE 
CMP.B NUMPT,D5 
BEQ.S H16 

MOVE.B 2(A3,05),01 
MOVE.B 0(A3,05),02 
AND #$FP,D1 
AND #$FF,D2 
SUB 02,01 
MOVE.B SCALE,03 
and #$FF,D3 
MULS 03,01 
LSR 8,01 

AOO.B 01,0{A3,05) 
MOVE.B 3(A3,05),01 


417 






SETUP4.S MG68000 ASM REV= 1.0F- COPYRIGHT BY MOTOROLA 1978 


7030 0007EC 024100FF AND #$FF,D1 

7040 0007F0 14335001 MOVE.B 1{A3,D5),D2 

7050 0007F4 024200FF AND #$FF,D2 

7060 0007F8 9242 SUB D2,D1 

7070 0007FA 16381016 MOVE.B SCALE,D3 

7080 0007FE 024300FF AND |$FF,D3 

7090 000802 C3C3 ' MULS D3,D1 

7100 000804 E049 LSR 8,D1 

7110 000806 D3335001 ADD.B D1,1(A3,D5) 

7120 00080A 5445 ADD #2,D5 

7130 00080C 60A6 ' bra H17 

7140 00080E 5346 H16 SUB #1,D6 

7150 000810 66A0 BNE HP6 

7160 000812 5347 SUB #1,D7 

7170 000814 6682 BNE H15 

7180 000816 4E75 RTS 

7190 000818 6100FE9A Q8 BSR HPl 

7200 00081C 283C000AFFFF MOVE.L #$AFFFF,D4 , 

7210 000822 6100FE2C BSR DLYQl 

7220 000826 60F0 BRA Q8 

7230 . * 

7240 

7250 * 

7260 000828 12290002 DXDY MOVE.B 2(A1),D1 

7270 00082C 9211 SUB.B {A1),D1 

7280 00082E 650A BCS.S XNEG 

/7290 000830 13410004 MOVE.B D1,4(A1) 

7300 000834 42290006 CLR.B 6(A1) 

7310 000838 4E75 RTS 

7320 00083A 137C00010006 XNEG MOVE.B #1,6(A1) 

7330 000840 4401 NEG.B D1 

7340 000842 13410004 MOVE.B Dl,4(Al) 

7350 000846 4E75 RTS 

7360 * 

7370 * 

7380 00000848 LINE EQU * ^ 

7390 000848 48E7FFFE DRAW MOVEM.L D0-D7/A0-A6A/) 

7400 00084C 227C00001000 MOVE.L #X1,A1 
7410 000852 13410002 MOVE.B D1,2{A1) 

7420 000856 13420003 MOVE.B D2,3(A1) 

7430 00085A 1211 MOVE.B (Al),D1 

7440 00085C 14290001 MOVE.B 1(A1),D2 

7450 000860 6100FCF2 BSR DSP 

7460 000864 61C2 DRAWl BSR DXDY 

7470 000866 5289 ADD.L il,Al 

7480 000868 61BE BSR DXDY 

7490 00086A 5389 SUB.L #1,A1 

7500 00086C 1211 MOVE.B (Al),D1 

7510 00086E 14290001 MOVE.B 1(A1),D2 

7520 000872 4A290004 TST.B 4(A1) 

7530 000876 6766 BEQ.S DXZ 

7540 000878 4A290005 TST.B 5(Al) 

7550 00087C 67000088 BEQ DYZ 

7560 000880 16290004 MOVE.B 4(A1),D3 

7570 000884 B6290005 CMP.B 5(A1),D3 
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7580 000888 660000B0 BNE FULMOV 

7590 00088C 4A290006 TST.B 6(Al) 

7600 000890 6626 BME.S SXN 

7610 000892 4A290007 TST.B 7(Al) 

7620 000896 6636 BNE.S SYN 

7630 000898 6100FCBA XPYPl BSR DSP 
7640 00089C 5201 ADD.B «1,D1 

7650 00089E 5202 ADD.B «1,D2 

7660 0008A0 B2290002 CMP.B 2(A1),D1 

7670 0008A4 66F2 BNE XPYPl 

7680'0008A6 607E BRA.S XYDONE 

7690 0008A8 6100FCAA SXNSYN BSR DSP 

7700 0008AC 5301 SUB.B #1,D1 

7710 0008AE 5302 SUB.B #1,D2 

7720 0008B0 B2290002 CMP.B 2(A1),D1 

7730 0008B4 66F2 BNE SXNSYN 

7740 000886 606E BRA.S XYDONE . 

7750 0008B8 4A290007 SXN TST.B 7(A1) 
-7760 0008BC 66EA BNE.S SXNSYN 

7770 0008BE 6100FC94 SNP BSR DSP 

7780 0008C2 5301 SUB.B #1,D1 

7790 0008C4 5202 ADD.B #1,D2 . 

7800 0008C6 B2290002 CMP.B 2(A1),D1 

7810 0008CA 66F2 BNE SNP 

7820 0008CC 6058 BRA.S XYDONE 

•7830 0008CE 6100FC84 SYN BSR DSP 
7840 0008D2 5201 ADD.B .#1,D1 

7850 0008D4 5302 SUB.B #1,D2 

7860 0008D6 B2290002 CMP.B 2(A1),D1 

7870 0008DA 66F2 BNE SYN 

7880 0008DC 6048 BRA.S XYDONE 

7890 0008DE 4A290005 DXZ TST.B 5 (Al) 
7900 0008E2 6742 BEQ.S XYDONE 

7910 0008E4 4A290007 TST.B 7(A1) 

7920 0008E8 660E BNE.S DXZYN 

7930 0008EA 6100FC68 DXZl BSR DSP 
7940 0008EE 5202 ADD.B #1,D2 

7950 0008F0 B4290003 CMP.B 3(Al),D2 

7960 0008F4 66F4 BNE DXZl 

•7970 0008F6 602E BRA.S XYDONE 

7980 0008F8 6100FC5A DXZYN BSR DSP 

7990 0008FC 5302 SUB.B #1,D2 

8000 0008FE B4290003 CMP.B 3(A1),D2 

8010 000902 66F4 BNE DXZYN 

8020 000904 6020 BRA.S XYDONE 

8030 000906 4A290006 DYZ TST.B 6(A1) 
8040 00090A 660E BNE.S DYZN 

8050 00090C 6100FC46 DYZl BSR DSP 
8060 000910 5201 ADD.B «1,D1 

8070 000912 B2290002 CMP.B 2(A1),D1 

8080 000916 66F4 BNE DYZl 

8090 000918 600C BRA.S XYDONE - 

8100 00091A 6100PC38 DYZN BSR DSP 
8110 00091E 5301 SUB.B #1,D1 

. 8120 000920 B2290002 CMP.B 2(Al),bl 
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8130 I 
8140 I 
8150 I 
8160 I 
8170 I 
8180 I 
8190 I 
8200 I 
8210 I 
8 220 I 
8230 I 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 


000924 

000926 

00092A 

00092C 

000930 

000934 

000938 

00093A 

00093E 

000942 

000946 

000943 

00094E 

000950 

000956 

000958 

00095C 

00095E 

000960 

000962 

000966 

00096A 

00096E 

000970 

000974 

000978 

00097A 

00097C 

000980 


000988 

00098A 

0009dE 

000990 

000992 

000994 

000996 

00099C 

00099E 

0009A0 

0009A2 

0009A4 

0009AA 

00'09AB 

0009B2 

0009B6 

0009B8 

0009BC 

0009BE 

0009C2 

0009C6 

0009CA 

0009CC 

000900 

000902 


66F4 

32A90002 

1211 

14290001 

6100FC22 

4COF7FFF 

4E75 

33510008 

16290004 

96290005 

6203 

337C0001000A 

6046 

337C0100000A 

603E 

16290008 

9611 

6402 

4403 

024300FF 

18290005 

024400FF 

C6C4 

18290009 

98290001 

6402 

4404 

1A290004 

024400FF 

024500FF 

C8C5 

4A29000A 

660E 

B883 

6710 

620E 

3369000A000E 

600C 

B883 

6702 

62F2 

337C0101000E 
L 12290008 
14290009 
4A290007 

1 6606 

t D429000F 
; 6004 
; 9429000F 
! 13420009 
; 4A290006 
^ 6606 
: O229000B 
9 6004 

2 9229000E 


BNE OYZN 

XYDONE MOVE 2(A1),(A1) 
MOVE.B (Al),01 
MOVE.B 1(A1),D2 
BSR DSP / 

MOVEM.L {A7)+,D0-O7/A0-A6 
RTS 

FULMOV MOVE (A1),8(A1) 
MOVE.B 4(A1),03 
SUB.B 5{A1),D3 
BHI.S FULl 
MOVE #$1,10(Al) 

BRA.S FUL4 

FULl MOVE #$100,10(Al) 
BRA.S FUL4 

PUL2 MOVE.B 8(A1),B3 
SUB.B {Al),03 
BCC.S FUL21 
NEG.B 03 

FUL21 AMD #$FF,D3 
MOVE.B 5(A1),D4 
AND #$FF,D4 
MULU 04,03 
MOVE.B 9(A1),04 
SUB.B 1(A1),04 
BCC.S FUL22 
NEG.B 04 

FUL22 MOVE.B 4(Al),D5 
AMO #$FF,D4 
AND #$PF,D5 
MULU 05,04 
TST.B 10(A1) 

BNE.S FULY 
CMP.L 03,04 
BBQ.S GREAT 
BHI.S GREAT 

FUL4 MOVE 10<A1),14(Al) 
BRA.S SAME 
FULY CMP.L 03,04 
BEQ.S GREAT 
BHI.S FUL4 

; GREAT MOVE #$0101,14(Al) 
SAME MOVE.B 8(A1),D1 
MOVE.B 9(A1),D2 
TST.B 7(A1) 

BNE.S NBGY 
ADD.B 15(A1),D2 
BRA.S S2 

NEGY SUB.B 15(Al),D2 
S2 MOVE.B 02,9(Al) 

TST.B 6(A1) 

BNE.S NEGX 
ADD.B 14(A1),D1 

DPX C C'l 

NEGXSUB.B 14{A1),D1 
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8680 

000906 

13410008 

S3 MOVE.B 01,8(Al) 



8690 

0009DA 

6100FB78 

PUL3 BSR DSP 



8700 

0009DE 

B2290002 

CMP.B 2(A1),D1 



8710 

0009E2 

670A 

BEQ.S DRAW2 - 



8720 

0009E4 

B4290003 

CMP.B' 3(A1),D2 



8730 

0009E8 

6704 

BEQ.S DRAW2 



8740 

0009EA 

6000PF6C 

BRA FUL2 



8750 

0009EB 

32A90008 

DRAW2 MOVE 8(A1),(A1) 



8760 

0009F2 

6000FB70 

BRA DRAWl 



8770 

0009F6 

0000 

END 



****** TOTAL ERRORS 

0—0 




SYMBOL 

TABLE 




ARRAY 

001080 BA 

000454 BLl 

000364 BL2 

000358 

BL3 

000368 BLACK 

000308 BLINK 

00034A BLUE 

0002FC 

BX 

00018A BXl 

00019A BXll 

0001B4 BX2 

0001A4 

BX22 

0001C0 BX3 

000190 BX33 

000100 BX44 

0001DA 

CHAR 

0003B6 CHARED 

- 0003A0 CHAREDl 

0003CE CHARED2 

000300 

CHARED3 

000304 CHARED4 

0003F8 CHTAB 

0009F6 CLRM 

000074 

CM 

000068 CMD 

000204 CMDl 

00026A CMD2 

000288 

CMD3 

000270 CMD4 

000276 CMDTAB 

001800 CMQ 

000656 

CMQl 

000662 COLOR 

001010 CR 

00027C CRTC 

000002 

. CYAN 

00031A OBLUE 

00032C DCYAN 

000344 DGR 

000326 

DLY 

00044a DLYl 

00044E DLYQ 

00064A OLYQl 

000650 

DMAG 

00033E DOT 

00041C DRAW 

000848 DRAWl 

000864 

DRAW2 

0009EE OREO 

000320 DSP 

000554 DSPl 

000566 

DSPLY 

. 00055A DSPLYl 

0005A8 DSPLY2 

0005A0 DWARROW 

000258 

DWH 

000332 DXDY 

000828 DXZ 

0003DE DXZl 

0008EA 

DXZYN 

- 0008F8 DYEL 

000338 DYZ 

000906 DYZl 

00090C 

OYZN 

00091A ED 

0001B8 EDI 

0001PA EQUl 

000SAC 

EQU2 

0005BE EQU3 

000500 EQU4 

0005E2 EQU5 

0005F4 

FIXBUF 

021F18 FULl 

000950 FUL2 

000958 FUL21 

000962 

FUL22 

00097C FUL3 

0009DA FUL4 

000996 FULMOV 

00093A 

FULY 

00099E GETADD 

00057A GREAT 

0009A4 GREEN 

0002F6 

HI 

0006FA Hll 

000760 H12 

00074A H13 

000784 

H131 

000788 H132 

00078C H14 

00076E H15 

000798 

H16 

00080E H17 

0007B4 H2 

000700 H3 

000712 

H4 

000718 H5 

000722 H6 

0006E8 H61 

000728 

H8 

000722 H9 

00073A HP 

0006AC HPl 

0006B4 

HP17 

0007BC HP6 

0007B2 INIT 

00002C INITl 

000038 

INPUT 

00016E LI 

000466 L2 

000482 LINE 

000848 

LOGO 

00066A LOOP 

000474 LTARROW 

000264 MACSBUG 

0200F6 

MAG 

000314 MSG 

0200EE NCOLOR 

001011 NEGX 

000902 

negy 

0009BE NTABLE 

000082 NUMPT 

001014 OCOLOR 

001012 

OUTPUT 

00017C 0UTPUT2 

021BC2 Q1 

000498 Q2 

0004A4 

Q3 

0004B0 Q4 

0004BC Q5 

0004C8 Q8 

000818 

Q9 

000606 Q91 

00060C Q92 

000610 RANAOD 

001018 

hand 

000514 RANDl 

000532 RAND2 

000520 READK 

000436 

Red 

0002F0 RETURN 

00007C RTARROW 

00025E RTS 

000256 

Rtsi 

000254 RTS2 

0002EC RUN 

000402 RUNl 

0004DA 

Run 2 

0004E2 S2 

0009C2 S3 

000906 SAME 

0009AA 

Scale 

001016 SET 

00040A SETUP 

000000 SBTUPl 

00000E 
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SETUP2 00001C SETUP21 000060 SH 0000E2 SHI 0000F4 
SH2 000106 SH3 000146 SH4 000154 SHOW 0001B2 
SHQ 0000E8 SNP 0008BE SXM 0008B8 SXMSYM 0008A8 
SYM 0008CE TABLECH 001100 UPARROW 000250 WHITE 000302 
XI 001000 X2 001002 XNEG 00083A XPYPl 000898 
XYDONE ,000926 Y1 001001 Y2 001003 YELLOW 00030E 


